Ctrl + Alt + Del ايقاف عمل المفاتيح
في قسم التصاريح ضع التالي
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
اكتب الاجراء التالي
Sub DisableCtrlAltDelete(bDisabled
As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1),
0)
End Sub
لايقاف عمل المفاتيح ادخل التالي في حدث تحميل
الفورم
Private Sub Form_Load()
Call
closealt
End Sub
لاعادة عملها ادخل التالي في اي كمكان تريد
Call
DisableCtrlAltDelete(False)